0 REM NUCLEAR DEMO (FOR COMMODORE 64) BY DEREK LEE 1 IF PEEK(49152)<>120 THEN LOAD"DEMO.C000",8,1 2 POKE49198,38:POKE49260,12 5 DIM PARA$(50) 6 REMREADAA,BB:FORZ=AATOBB:READW:POKEZ,W:NEXT 7 REMDATA 826,849,162,128,160,0,132,33,134,34,177,33,73,128,145,33 8 REMDATA 200,208,247,232,224,132,208,240,96,0 9 CD$="" 10 CU$="[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]" 20 GOSUB555: REM TITLE 30 GOSUB1600: REM NARRATION 94 RUN 95 REM 96 REM ************************ 97 REM ****** SINGLE FISSION ****** 98 REM ************************ 99 REM 100 POKE53281,11:POKE53280,11 105 S1$="" 110 A$="" 120 S2$="" 130 AA$="" 140 OS$="[129][169] [223][146][157][157][157][223] [146][169][157][157][157]":OS$=OS$+OS$ 150 BB$="" 160 FR$="[158][169] [223][157][157][157][146][223] [146][169]" 170 SP$=" [157][157][157] " 180 NU$="[154][169] [223][157][157][157] [157][157][157][146][223] [146][169]" 190 PRINT"[147]"TAB(20)NU$ 210 FORX=1464TO1484 220 POKEX-1,32 230 POKEX,46 240 FORI=1TO50:NEXTI 250 NEXTX 260 POKEX-1,224 270 FORX=1TO6 280 PRINT"[147]"TAB(20)OS$:FORI=1TO20:NEXTI:POKE53281,8 290 PRINT"[147]"TAB(20)NU$:FORI=1TO10:NEXTI:POKE53281,11 300 NEXTX 310 PRINT"[147]"TAB(21)FR$ 320 PRINT""TAB(21)FR$ 330 N1=1448:N2=1488:N3=1528 340 FORI=0TO15STEP2 350 POKEN1+I,46:POKEN2+I,46:POKEN3+I,46 360 POKEN1+I-2,32:POKEN2+I-2,32:POKEN3+I-2,32 370 NEXTI 380 POKEN1+I-2,32:POKEN2+I-2,32:POKEN3+I-2,32 390 GOSUB410:POKE53281,6:POKE53280,6 391 SENT$="[147][154] A GREAT DEAL OF ENERGY IS RELEASED":GOSUB2000 392 SENT$=" IN THE FORM OF HEAT.":GOSUB2000:DD=250:GOSUB4000 393 SENT$=" THIS HEAT IS USED TO PRODUCE STEAM.":GOSUB2000:GOSUB4000 394 SENT$=" ALSO, NOTICE THAT MORE NEUTRONS":GOSUB2000 396 SENT$=" WERE KNOCKED OUT AFTER THE":GOSUB 2000 397 SENT$=" COLLISION AND VIBRATION ...":GOSUB2000:DD=750:GOSUB4000 400 RETURN 405 REM 406 REM ************************ 407 REM ****** MOVE FRAGMENTS ****** 408 REM ************************ 409 REM 410 PRINTS1$;A$;FR$;S2$;A$;FR$ 420 PRINTS1$;A$;SP$;S2$;A$;SP$ 430 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$ 440 PRINTAA$;BB$;FR$;AA$;BB$;SP$ 450 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$ 460 PRINTAA$+"";"";FR$;AA$+"";"";SP$ 470 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$ 480 PRINTAA$+"";"";FR$;AA$+"";"";SP$ 490 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$ 500 PRINTAA$+"";"";FR$;AA$+"";"";SP$ 510 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$ 520 PRINTAA$+"";"";FR$;AA$+"";"";SP$ 530 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$ 540 PRINTAA$+"";"";FR$;AA$+"";"";SP$ 550 PRINTS2$+"";A$"";FR$;S2$+"";A$+"";SP$ 552 RETURN 555 REM 556 REM ******************** 557 REM ****** TITLE PAGE ****** 558 REM ******************** 559 REM 560 POKE53265,27 565 PRINT"[147][144]";TAB(5);"[169] [146] [213] 570 [153][163]5);" WAIT TOWAITSTEP(null)TANRIGHT$==RIGHT$==RIGHT$(null)TANRIGHT$(null)TAN<(null)TANRIGHT$(null)TANRIGHT$(null)TANRIGHT$ 580 PRINTTAB(5);" [146]  [223][146][221] [221][221][221][221][221][221][221][221][160][221][221][160][221][221][160][221][221] [171][192][203] 590 [153][163]5);"(null) WAIT MID$TAN(null)(null)MID$MID$(null)MID$MID$MID$TAN(null)MID$TAN(null)MID$TAN(null)(null) MID$TAN(null) 600 PRINTTAB(15);"[164][164][164] 610 [153][163]14);"STEP (null)WAIT STEP WAITINT 620 PRINTTAB(14);" [146][169][163][223] [146][165] [169] [146][181] 630 [153][163]13);"+ WAITFNTO STEP WAITSTEP WAITINT 640 PRINTTAB(13);"[161] [223][146] [169] [146][169]  [146][181] 650 [153][163]13);"GET WAITSTEPTAB((null) WAITSGN  WAIT 660 PRINTTAB(13);"[182] [146][165] [167] [146][181]  [146][181] 670 [153][163]13);"+ (null)WAITTOSTEP WAITSGN  WAITINT 680 PRINTTAB(14);"[223] [146][169]  [146][181] 682 [141] 950: [143] BORDER 684 [142] 685 [143] 686 [143] ******************* 687 [143] ****** POWER PLANT ****** 688 [143] ******************* 689 [143] 690 TEST[178]0:[153]"LOAD";:[151]53281,9:[151]53280,6 695 [153]" WAIT(null)SPC(SPC( WAIT"; 700 [153]" WAIT(null)SPC(SPC( WAIT"; 710 [153]" TAB(FREWAITSPC( WAIT"; 720 [153]" FREFRENEWNEWNEWWAITFREFREFRETAB(TAB(FREFRENEWNEWNEWRNDWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("; 730 [153]"SYSTOTOTOTO INTWAITSPC( "; 740 [153]"SYS WAITFN SYSSTEP (null)WAIT INTWAITSPC( WAIT"; 750 [153]"SYS WAIT(null) OPENSTEP (null)WAIT SYSSTEPTOTOTOTOTO(null)WAIT SGNWAITSPC( "; 760 [153]"SYS WAIT OPEN WAITTOTO LENLENLENLENLEN WAIT FNWAITSPC( "; 770 [153]"SYS WAIT(null) OPENWAIT(null) WAITSTEP SGNSYS TAB(TAB(TAB(TAB(TAB( WAIT THENSPC(SPC( "; 780 [153]"SYS WAIT CLOSEFNSYS(null) WAITSTEP +SPC(SPC( "; 790 [153]"SYS WAIT(null) OPENSTEP (null)WAIT FN SYSWAIT(null) WAITSTEP ABSSPC(SPC( "; 800 [153]"SYS WAITFN OPEN WAITTO(null)FN GETWAITSPC( "; 810 [153]"SYS WAITFN OPEN(null) WAITSTEP FNCLOSESTOP====WAITPOSPOSPOS INT "; 820 [153]"SYS WAITFN SYSFN STOP(null)(null)(null)(null) WAITSTOPGET INT WAITSPC("; 830 [153]"SYS WAITFN OPENSTEP (null)WAIT (null)FNCLOSESTOP(null)(null)(null)(null) WAITSTOPGETFREFN WAITSPC(SPC("; 840 [153]"SYS WAITFN OPEN WAITTO(null) FN STOP(null)(null)(null)(null) WAITSTOPGETTHENSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("; 850 [153]"SYS WAITFN OPEN(null) WAITSTEP FNCLOSESTOP>>>>FREFREFRE SPC(SPC(SPC( "; 860 [153]"SYS WAITFN (null) (null) PEEK(null) (null) ABSSPC( "; 870 [153]"SYS WAITFNOPENSTEP (null)WAIT CLOSE(null) FN PEEK(null) FN GETWAITSPC( "; 880 [153]"SYS WAITFNOPEN WAITTO(null) FN PEEK(null) (null) INTWAITSPC( WAIT"; 890 [153]"OPEN TAB(TAB((null) CLOSE(null) WAITSTEP FN PEEK(null)(null) INTWAITSPC( WAIT"; 900 [153]"OPEN (null)TOTOTOTOTOTOTOTOTOTO(null)(null)TOTO(null) THENSPC((null) WAIT"; 905 [153]" "; 909 [153]" NUCLEAR POWER PLANTWAIT AERIAL VIEW  WAIT"; 910 [153]" WAIT";:[151]56295,5:[151]2023,224 911 RE$[178]"FORSTEP (null)CMDCMDCMDCMD CMDCMDCMDCMDWAIT(null) WAITSTEP" 912 [153][200](CD$,7);[163]11);RE$:[129]Y[178]1[164]75:[130] 913 [153][200](CD$,11);[163]10);RE$:[129]Y[178]1[164]75:[130] 914 [153][200](CD$,15);[163]9);RE$:[129]Y[178]1[164]75:[130] 915 [153][200](CD$,19);[163]8);RE$:[129]Y[178]1[164]75:[130] 916 [139] TEST[179]4 [167] TEST[178]TEST[170]1:[153]"";:[137]695 917 DD[178]1000:[141]4000 920 [153]"LOAD":[151]53281,6:[142] 950 [143] 960 [143] ******************** 970 [143] ****** TITLE BORDER ****** 980 [143] ******************** 990 [143] 994 X[178]2:Y[178]7 995 [129]J[178]2[164]11[169]2:[151]53281,J:[151]53280,J 1000 [129] I[178]1 [164] 40 [169]2 1010 [151]1023[170]I,81:[151]55295[170]I,X:[151]1024[170]I,81:[151]55296[170]I,Y 1020 [151]2024[171]I,81:[151]56296[171]I,X:[151]2023[171]I,81:[151]56295[171]I,Y 1030 [130]I:[151]53281,J[170]1:[151]53280,J[170]1 1040 [129] I[178]1[164]23 [169] 2 1050 [151]1984[171]40[172]I,81:[151]56256[171]40[172]I,X:[151]1984[171]40[172](I[170]1),81:[151]56256[171]40[172](I[170]1),Y 1060 [151]1063[170]40[172]I,81:[151]55335[170]40[172]I,X:[151]1063[170]40[172](I[170]1),81:[151]55335[170]40[172](I[170]1),Y 1070 [130]I 1080 Z[178]X:X[178]Y:Y[178]Z:[130]J 1085 [151]53281,6:[151]53280,6 1090 [142] 1092 [143] 1093 [143] ********************** 1094 [143] ****** CHAIN REACTION ****** 1095 [143] ********************** 1096 [143] 1100 [153]"LOAD";:[151]53281,12 1110 M$[178]" WAIT":N$[178]"(null)RIGHT$CMDCMDMID$(null)" 1120 [129]I[178]1[164]24 1130 [153][163]15);M$ 1140 [130] 1145 [153][163]15);M$;"" 1170 Z[178]0:[129]J[178]1[164]2:[129]I[178]1[164]10 1180 X[178][181]([187](1)[172]11[170]1):Y[178][181]([187](1)[172]7) 1190 [153][200](CD$,X[172]2);[163]Z[170]Y[172]2);N$ 1200 [130]I:Z[178]24:[130]J 1210 [153][200](CD$,8);" ":[153]" " 1220 [153][200](CD$,8);[163]8);N$ 1230 [153][200](CD$,20);[163]10);N$[170]"CMDCMD CMDCMD " 1240 [153][200](CD$,10);[163]24);" ":[153][163]24);" " 1250 [153][200](CD$,10);[163]30);N$ 1290 [143] ...... MOVE NEUTRONS ...... 1300 N1[178]0:N2[178]24 1310 [153][200](CD$,8);[163]N1);" ." 1320 N1[178]N1[170]1 1330 [139]N1[177]5[167][153][200](CD$,N2);[163]11);" ONCMD.":N2[178]N2[171]1 1340 [129]I[178]1[164]75:[130]:[139]N1[179]8[167]1310 1350 [129]I[178]1[164]13:[151]53281,8:[129]J[178]1[164]20:[130]:[151]53281,11:[129]J[178]1[164]10:[130]J:[130]I 1360 [151]53281,12:[153][200](CD$,7);[163]8);"(null)RIGHT$CMDCMD CMDCMDMID$(null)":[141]1370:[137]1390 1370 [153][200](CD$,20);[163]10);"*RNDWAITCMDCMDLOGWAITCOS":[129]T[178]1[164]20:[130]T 1380 [153][200](CD$,20);[163]10);"*WAITRNDCMDCMDLOGCOSWAIT":[142] 1390 [129]I[178]9[164]14 1400 [153][200](CD$,8);[163]I);" :":[141]1370:[130]I 1410 [153][200](CD$,8);[163]I);" WAIT":[141]1370 1420 [129]X[178]1[164]7:I[178]I[170]1:Y[178][181]([187](1)[172]15)[170]2 1430 [153][200](CD$,Y);[163]I);".WAIT":[141]1370 1440 [153][200](CD$,Y);[163]I);" WAIT":[141]1370:[130] 1450 [153][200](CD$,11);[163]23);".WAIT":[141]1370 1460 [153][200](CD$,11);[163]23);" WAIT":[141]1370 1470 [129]I[178]25[164]29:[153][200](CD$,11);[163]I);" .":[141]1370 1480 [129]J[178]1[164]35:[130]J:[130]I 1490 [153][200](CD$,10);[163]30);"(null)RIGHT$CMDCMD CMDCMDMID$(null)":[141]1370 1500 [129]I[178]1[164]10:[151]53281,8:[129]J[178]1[164]20:[130]:[151]53281,11:[129]J[178]1[164]10:[130]J:[130] 1505 [151]53281,12:[141]1370 1510 [129]I[178]31[164]37 1520 [153][200](CD$,11);[163]I);" :":[141]1370:[130]I 1530 [153][200](CD$,11);[163]38);" " 1540 [151]53281,6:[153]"CONT":[142] 1600 [143] 1610 [143] ****************** 1620 [143] ****** NARRATION ****** 1630 [143] ****************** 1640 [143] 1645 [153]"LOAD"; 1650 [135] SENT$ 1660 [141] 2000:[143] PRINT ONE LETTER AT A TIME 1670 DD[178]500:[141]4000 1700 [143] SCROLL UP 1710 [153]"" 1715 [151]53265,23:[129]J[178]1[164]33 1717 [135]SENT$ 1719 [139] SENT$[179][177]"*"[167]1725 1720 [153][200](CD$,25);" ON":[151]174,9:[158]12[172]4096 1723 [129]D[178]1[164]1000:[130]D:[130]J 1725 [151]174,1:[158]12[172]4096 1727 [153][200](CD$,25);[163]9);SENT$;"ON" 1730 [151]174,1:[158]12[172]4096 1740 [153][200](CD$,25);" ON" 1760 [130]J 1770 [151]174,15:[158]12[172]4096:[151]53265,27 1780 [135] SENT$:[141]2000 1790 [131]"LOADDEF WHAT FORMAKES SYSA NUCLEAR PRINTPOWER CONTPLANT CLRTICK?" 1800 [131]"CONT BECAUSE OF "," SEVERAL INSTANCES OF " 1802 [131]" ADVERSE PUBLICITY, ",* 1805 [131]" NUCLEAR ENERGY IS ","STILL REGARDED BY MANY " 1810 [131]" AS AN UNRELIABLE "," SOURCE OF POWER. ",* 1812 [131]" UNFORTUNATELY, " 1815 [131]" MANY ALSO HAVE "," A MISCONCEPTION AS TO " 1820 [131]"HOW THE NUCLEAR PROCESS"," ACTUALLY WORKS. ",* 1822 [131]" THE FISSION PROCESS " 1825 [131]" AS USED IN THE "," CANDUWAIT REACTOR, ",* 1830 [131]" JUST USES A "," DIFFERENT METHOD OF " 1832 [131]" CREATING STEAM " 1835 [131]" TO TURN TURBINES. ",*," IT DOES NOT " 1837 [131]" FORMELT DOWNCONT " 1840 [131]" EVERY SIX MONTHS ",*," NOR DOES IT " 1842 [131]" MAKE PEOPLE " 1845 [131]" SYSGLOW IN THE DARKCONT. ",*," " 1855 [131]"HERE'S HOW IT REALLY WORKS ..." 1856 [129]I[178]1[164]1000:[130]I 1860 [129] P[178]1[164]9 1870 [135] SENT$ 1875 [153]"LOAD" 1880 [141] 2000:[143] PRINT LET. BY LET. 1885 DD[178]750:[141]4000 1890 [145] P [141] 685,3500,2400,2100,2600,95,2950,1092,3100 1900 [130]P 1905 SENT$[178]"LOAD ... AND THAT'S HOW IT REALLYWAIT WORKS!":[141]2000 1910 [131] "THE POWER PLANT CONSISTS OF SEVERAL REACTORS" 1915 [131] "INSIDE EACH REACTOR, FISSION TAKES PLACEIN THE CALANDRIAWAIT" 1920 [131] "THE CALANDRIA IS LOADED WITH MANY FUEL BUNDLES" 1925 [131] "EACH FUEL BUNDLE CONTAINS SMALL URANIUM PELLETS" 1930 [131] "LET'S LOOK A LITTLE CLOSER" 1935 [131] "IT RUNS INTO A URANIUM 235 NUCLEUS LIKE THIS..." 1940 [131] "A CHAIN REACTION IS CREATED BY THE NEUTRONS THAT ARE RELEASED" 1945 [131] "LET'S LOOK AT IT AGAIN" 1950 [131] "HERE'S HOW ELECTRICITY IS GENERATED" 1990 [142] 2000 [143] 2010 [143] ********************** 2020 [143] **** LETTER BY LETTER **** 2030 [143] ********************** 2040 [143] 2045 [153]"CONT"; 2050 [129]I[178]1[164][195](SENT$) 2060 [153][202](SENT$,I,1); 2070 [129]J[178]1[164]30:[130]J:[130]I 2075 [153] 2080 [142] 2100 [143] 2110 [143] ******************** 2120 [143] **** URANIUM PELLET **** 2130 [143] ******************** 2140 [143] 2150 [153]"LOAD":[151]53281,0 2160 [153]" FOR(null)TANTANTANTANSTR$STR$STR$TANTANTANASCTO " 2170 [153]" CHR$ TAB(STR$ASC " 2180 [153]" MID$TANASC(null)TO(null)TOTO(null) (null) " 2190 [153]" POKE WAIT FORVALTANTO (null) " 2200 [153]" POKE WAIT FOR(null) (null) " 2210 [153]" POKE WAIT FOR(null)TAB(TAB(TAB(TAB(FN THEN " 2220 [153]" POKE WAIT FORTHEN(null) FN FN" 2230 [153]" (null)TAB(TAB(STR$ASC (null)(null) (null)FN (null)" 2240 [153]" (null) (null) (null)(null) FN PEEK" 2250 [153]" (null) (null) (null)(null)(null) THEN" 2260 [153]" (null) /TAB(TAB(TAB(TAB(TAB( " 2270 [153]" (null) " 2280 [153]" (null) " 2290 [153]" VALSTR$ASC " 2300 [153]" TAB(LENTO " 2310 [129]I[178]1[164]40:[151]1023[170]I,224:[151]55295[170]I,15 2315 [151]2024[171]I,224:[151]56296[171]I,15:[130]I 2320 [129]I[178]1[164]24:[151]1024[170]39[170]40[172]I,224:[151]55296[170]39[170]40[172]I,15 2325 [151]2023[171]39[171]40[172]I,224:[151]56295[171]39[171]40[172]I,15:[130]I 2330 DD[178]1000:[141]4000 2340 [151]53281,6:[142] 2400 [143] 2410 [143] ********************* 2420 [143] ****** FUEL BUNDLE ****** 2430 [143] ********************* 2440 [143] 2442 [153]"LOAD":[151]53281,6:[151]53280,6 2445 [153]" CONTFUEL BUNDLEWAIT" 2450 [153]"PRINT# TOTOTOTO 2455 PRINT" [206][206][206][206][206][205] 2460 [153]" (null)(null)(null)(null)(null)(null)(null)(null) 2465 PRINT" [206][206][206][206][206][206][206][206][206][165] 2470 [153]" (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FN 2475 PRINT" [206][206][206][206][206][206][206][206][206][206][206][165] 2480 [153]" PRINT#(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FN 2490 PRINT" [206][206][206][206][206][206][206][206][206][206][206][206][206] 2495 [153]" (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) 2500 PRINT" [206][206][206][206][206][206][206][206][206][206][206][206][206] 2505 [153]" (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) 2510 PRINT" [206][206][206][206][206][206][206][206][206][206][206][206][206] 2515 [153]" (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO 2520 PRINT" [206][215][215][209][209][209][215][215][206][206][206][206][206] [182] [181]" 2523 PRINT" [215][215][209][209][209][209][209][215][215][206][206][206] [170][163][163][184][184][163][163][163][163][163][163][163][163][163][163][184][184][163][163][180]" 2525 PRINT" [215][215][209][209][209][209][209][215][215][206][206] [182][163][163][184][184][163][163][163][163][163][163][163][163][163][163][184][184][163][163][181] 2530 [153]" (null)(null)(null)(null)(null)(null)(null)(null)(null)(null) +TAB(TAB(FREFRETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FREFRETAB(TAB(SGN 2535 PRINT" [215][215][209][209][209][215][215][206] [182][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][181] 2540 [153]" (null)(null)(null)(null)(null)(null) TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 2550 FORI=1TO40:POKE1023+I,224:POKE55295+I,5 2555 POKE2024-I,224:POKE56296-I,5:NEXTI 2560 FORI=1TO24:POKE1024+39+40*I,224:POKE55296+39+40*I,5 2565 POKE2023-39-40*I,224:POKE56295-39-40*I,5:NEXTI 2566 FORI=1TO5:PRINTLEFT$(CD$,9);TAB(23);" ":DD=75:GOSUB4000 2567 PRINTLEFT$(CD$,9);TAB(23);"[144]_ FRONT VIEW":GOSUB4000:NEXTI 2568 FORI=1TO5:PRINTLEFT$(CD$,23);TAB(23);" ":DD=75:GOSUB4000 2569 PRINTLEFT$(CD$,23);TAB(23);"[144]^ SIDE VIEW":GOSUB4000:NEXTI 2575 DD=1000:GOSUB4000 2580 POKE53281,6:RETURN 2600 REM 2610 REM ********************** 2620 REM **** NEUTRON CLOSE-UP **** 2630 REM ********************** 2640 REM 2650 PRINT"[147]";:POKE53281,11 2680 PRINT"[158] [146]"; 2690 PRINT" [146]"; 2700 PRINT" [146]  [146]"; 2710 PRINT" [146]  [146]"; 2720 PRINT" [146]  [146]"; 2730 PRINT" [146] [129][169] [223][146] [165][165][165][146] [158] [146]"; 2740 PRINT" [146] [129][169] [223][146] [223] [146][169] [158] [146]"; 2750 PRINT" [146] [129] [213][192][201] [213][192][201] [146]  [146] [158] [146]"; 2760 PRINT" [146] [129] [146]  [146] [158] [146]"; 2770 PRINT" [146] [129] [209] [209] [146] [169][146][169] [158] [146]"; 2780 PRINT" [146] [129] [169][146][169] [158] [146]"; 2790 PRINT" [146] [129][169] [164][164][164][164][164][164] [146][169] [158] [146]"; 2800 PRINT" [146] [129] [146][169]  [205] [206] [146] [158] [146]"; 2810 PRINT" [146] [129][223] [167] [205][164][164][206] [146] [158] [146]"; 2820 PRINT" [146] [129][223] [146][169] [158] [146]"; 2830 PRINT" [146] [129][223] [146][169] [158] [146]"; 2840 PRINT" [146] [129]  [146][183][183][183][183] [146] [158] [146]"; 2850 PRINT" [146] [129]  [146] [160][146] [158] [146]"; 2860 PRINT" [146] [129][169] [146]  [223][146] [158] [146]"; 2870 PRINT" [146] [129][169] [146]  [223][146] [158] [146]"; 2880 PRINT"[161] [161][146]" 2890 SENT$="THERE'S THE CULPRIT!!":GOSUB2000 2900 SENT$="NEUTRON[146]!!":GOSUB2000 2910 GOSUB4000 2920 POKE53281,6:RETURN 2950 REM 2960 REM ************************ 2970 REM ** EXPLAIN CHAIN REACTION ** 2980 REM ************************ 2990 REM 3000 GOSUB 1092 3010 SENT$="[147] THE RELEASED NEUTRONS BOUNCE AROUND":GOSUB2000 3020 SENT$=" IN THE MODERATOR OR HEAVY WATER TO":GOSUB2000 3030 SENT$=" SLOW THEM DOWN. ":GOSUB2000:DD=250:GOSUB4000 3035 SENT$=" THIS INCREASES THE CHANCE OF THEM":GOSUB2000 3040 SENT$=" COLLIDING INTO ANOTHER NEUTRON.":GOSUB2000:GOSUB4000 3050 SENT$=" HOWEVER, SOME NEUTRONS MIGHT BE WASTED":GOSUB2000 3060 SENT$=" BY BEING ABSORBED BY A NUCLEUS OR THE":GOSUB2000 3070 SENT$=" MODERATOR.":GOSUB 2000:GOSUB4000 3080 RETURN 3100 REM 3110 REM *********************** 3120 REM ** PRODUCING ELECTRICITY ** 3130 REM *********************** 3140 REM 3145 PRINT"[147]":POKE53281,5 3150 PRINT" [151][175][175][175][175][175][175][175][175][175][175][175][175][175]" 3160 PRINT" [151][170][154][166][166][166][166][166][166][166][166][166][166][166][166][166][151][181]" 3170 PRINT" [151][170][154][166][151][207][183][183][183][183][183][183][183][183][208][154][166][166][151][204] [164][164][164][164][164][164]" 3180 PRINT" [151][175][175][186][154][166][151][204][175][175] [186][154][220][151][187][161][208][164][164][207][172][172][172][172][172][172][208]" 3190 PRINT" [151][170][154][166][166][166][166][166][166][166][151][165] [165][188][188][188][146][162][162][162][162] [146][186]" 3200 PRINT" [151][175][186][154][162][185][162][175][185][185][162][151][204][175] [165][172][172][172][162][162][162][162] [146][167][183][183][158][205]" 3210 PRINT"[151][170] [146][151][165] [165] [190][161] [188][188][188][188][188][188][167] [158][206]" 3220 PRINT"[151][170] [146][151][207][154] [146][151][208] [146][151][165] [165] [167] [158][206][205]" 3230 PRINT"[151][170] [146][151][165] [170] [146][151][165] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][158][167] [205]" 3240 PRINT"[151][170] [146][151][204][156] [146][151][186] [146][151][165] [158][206] [206][165]" 3250 PRINT"[151][170] [168][168][168][168][168] [146][151][165] [158] [165] [206] [165]" 3260 PRINT"[151][170] [146][151][207][156] [146][151][208] [146][151][165] [158] [165][206] [205]" 3270 PRINT"[151][170] [146][151][204][156] [146][151][186] [146][151][165] [158][206] [205] [205]" 3280 PRINT"[151][170] [168][168][168][168][168] [146][151][165] [158][206] [206] [206][205]" 3290 PRINT" [163][163][156] [146][151][163][163] [158][206][165] [165] [165][167]" 3300 PRINT" [163][163][163][163][163][163][163] [158][167] [205] [158] [206][205]" 3310 PRINT" [158][206][165] 3312 [129]I[178]1[164]5:[153]" ":[129]J[178]1[164]150:[130]J 3315 [153]"STOP^":[129]J[178]1[164]150:[130]J:[130]I 3320 SENT$[178]" STOPTHE REACTOR HEATS THE HEAVY WATER":[141]2000 3325 [153]" " 3330 [129]I[178]1[164]5:[153]" ":[129]J[178]1[164]150:[130]J 3335 [153]"STOP_":[129]J[178]1[164]150:[130]J:[130]I 3340 SENT$[178]" STOPORDINARY WATER IS TURNED TO STEAM":[141]2000 3350 [153]" " 3360 [129]I[178]1[164]5:[153]"";[163]18);" ":[129]J[178]1[164]150:[130]J 3365 [153]"";[163]18);"STOP^":[129]J[178]1[164]150:[130]J:[130]I 3370 SENT$[178]" STOPSTEAM PRESSURE DRIVES TURBINE ":[141]2000 3380 [153]"";[163]18);" " 3390 [129]I[178]1[164]5:[153]"";[163]27);" ":[129]J[178]1[164]150:[130]J 3395 [153]"";[163]27);"STOP^":[129]J[178]1[164]150:[130]J:[130]I 3400 SENT$[178]" STOPTURBINE DRIVES GENERATOR ":[141]2000 3410 [153]"";[163]27);" " 3420 [129]I[178]1[164]5:[153]"";[163]36);" ":[129]J[178]1[164]150:[130]J 3425 [153]"";[163]36);"STOP_":[129]J[178]1[164]150:[130]J:[130]I 3430 SENT$[178]" STOPELECTRICITY IS PRODUCED ":[141]2000 3440 [153]"";[163]36);" " 3450 [153]"CONT":[151]53281,6:[142] 3500 [143] 3510 [143] ******************* 3520 [143] ****** CALANDRIA ****** 3530 [143] ******************* 3540 [143] 3545 [153]"LOAD":[151]53281,13 3550 [153]" PRINT#ANDANDANDANDSQRCONTSPC(SPC(SPC(PRINT#(null)ANDANDANDAND 3555 PRINT" [152][167][154][166][166][166][166][166][166][166][166][166][166][166][166][166][152][165] 3560 [153]" PRINT#THENCONTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(PRINT#FN 3565 PRINT" [152][167][154][162][185][175][185][185][162][185][185][175][175][162][162][185][152][165] 3570 [153]" PRINT#ANDANDSQRCONT WAITPRINT#(null)ANDAND 3575 PRINT" [182] [146][152][181] 3580 [153]" ABS WAITPRINT#(null)(null)CONT WAITPRINT#(null)(null) WAITPRINT#INT 3585 PRINT" [182] [146][152][165] [183][183][183][183][183][183][183][183][183][183][183][183][183] [167] [146][152][181] 3590 [153]" ABS WAITPRINT#FN CLRTOTOTOTOTOTOTOTOTOTOTOTOTO PRINT#THEN WAITPRINT#INT 3595 PRINT" [182] [146][152][204][175][156] [146][152][175][186] [146][152][181] 3600 [153]" ABS NOTNOTNOT NOTNOTNOT NOTNOTNOT WAITPRINT#INT 3605 PRINT" [182] [146][152][207][183][156] [146][152][183][208] [146][152][181] 3610 [153]" ABS WAITPRINT#(null)ANDCLR WAITPRINT#ANDSQR WAITPRINT#INT 3615 PRINT" [182] [168][168][168] [168][168][168] [168][168][168] [146][152][181] 3620 [153]" ABS WAITPRINT#(null)USRCLR WAITPRINT#USR(null) WAITPRINT#INT 3625 PRINT" [182] [146][152][204][175][156] [146][152][175][186] [146][152][181] 3630 [153]" ABS NOTNOTNOT NOTNOTNOT NOTNOTNOT WAITPRINT#INT 3635 PRINT" [182] [146][152][207][183][156] [146][152][183][208] [146][152][181] 3640 [153]" ABS WAITPRINT#(null)ANDCLR WAITPRINT#ANDSQR WAITPRINT#INT 3645 PRINT" [182] [168][168][168] [168][168][168] [168][168][168] [146][152][181] 3650 [153]" USRUSRUSRCLR WAITPRINT#USRUSRUSR 3655 DD=500:GOSUB4000 3657 PRINT"";TAB(12);"[129]CALANDRIA":GOSUB4000 3660 PRINT"";TAB(12);"^[157]FUEL BUNDLE":GOSUB4000 3670 PRINT"";TAB(23);"[156]_HEAVY WATER[157][157][157][157][157][157][157][157][157][157]MODERATOR":GOSUB4000 3680 PRINT"";TAB(26);"_HEAVY WATER[157][157][157][157][157][157][157][157][157]COOLANT":GOSUB4000 3690 PRINT"";TAB(23);"[154]_LIGHT WATER":GOSUB4000 3695 PRINT"";TAB(23);"[154]_STEAM":GOSUB4000 3700 POKE53281,6:PRINT"[154]":RETURN 4000 REM 4010 REM ************** 4020 REM ****** DELAY ****** 4030 REM ************** 4040 REM 4050 FORT=1TODD:GETD$:IFD$=""THENNEXTT 4060 RETURN 5000 REM WRITTEN BY DEREK LEE 5010 REM WITH THANKS TO CARY HEATHER